home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / DOpus / opusmpega / prefs / OpusMPEGA < prev   
Encoding:
Text File  |  1998-03-28  |  24.2 KB  |  557 lines

  1. ;***************************************************************************
  2. ; * $VER: Player-Setup for Opus MPEGA (OpusMPEGA.dopus5) 3.0
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set current_version "3.0")
  7. (set lng @language)
  8. ;****************************************************************************
  9.  
  10. (set #intro1 (cat "\n\Opus MPEGA Preferences " current_version "\n******************************\n© 1998 by Eckhard Ludwig"))
  11.  
  12. ;***************************************************************************
  13. ; deutsche Texte                               *****************************
  14. ;***************************************************************************
  15.  
  16. (if (= lng "deutsch")
  17. (
  18. (set PrefsPrompt        "Willkommen zum Konfigurationsprogramm für OpusMPEGA.\n\nSie können die gewünschte MPEG-Karte, Soundkarte oder Amigaaudio auswählen.\n\nWeiter werden die Pfade zu den Playerprogrammen gesetzt, wenn diese nicht dem Standard entsprechen.")
  19.  
  20. (set MPEGPlayPrompt     "Zur Wiedergabe über die Soundkarte Melody, über die MPEG-Karte Peggy-Plus und über das CD32 FMV-Modul wird der Player MPEGPlay (© 1997 by Thorsten Hansen) benutzt. Bitte wählen Sie die Schublade, wo MPEGPlay installiert wurde, oder 'Weiter' !")
  21. (set MPEGPlayERROR      "\nMPEGPlay ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:MPEGPlay\" benutzen, falls sie MPEGPlay noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  22.  
  23. (set PlayMPEGAPrompt     "\nZur MPEG Wiedergabe über Amigaaudio und AHI audio system V4.14+ wird der Player MPEGA ab V3.0 by Stephane TAVENARD benutzt.\n\nBitte wählen Sie den Pfad zu der für ihren Amiga geeigneten Version von MPEGA aus!")
  24. (set #PlayMPEGAPrompt    "Bitte MPEGA auswählen oder Weiter.")
  25. (set PlayMPEGAERROR      "\nMPEGA ist nicht unter dem gewählten Namen installiert, oder die gewählte Schublade ist falsch!\n\nSoll ich die Voreinstellung benutzen, falls sie MPEGA noch nicht installiert haben?\n\nMit 'Nein' können sie erneut den Pfad auswählen.\n\nVoreinstellung: ")
  26.  
  27. (set BREAKPrompt        "Das Tool BreakName (©1994 by Kai Iske, Public Domain) wird benutzt, um die Soundwiedergabe über MPEGA vorzeitig abzubrechen. Bitte wählen Sie die Schublade aus, wo BreakName installiert wurde, oder Weiter!")
  28. (set BREAKERROR         "\n'BreakName' ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"C:BreakName\" benutzen, falls sie das Tool noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  29.  
  30. (set HELPPrompt        "Die Guide zu Opus MPEGA ist nicht im Help-Verzeichnis von DOpus5 installiert. Bitte wählen Sie die Schublade aus, wo die Guide installiert wurde, oder Weiter!")
  31. (set HELPERROR         "\nOpusMPEGA.guide ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"DOpus5:Help\" benutzen, falls sie die Guide nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  32.  
  33. (set SETUPPrompt        "Dieses Preferences Programm (OpusMPEGA) wurde nicht im Prefs-Verzeichnis der Workbench installiert. Bitte wählen Sie die Schublade aus, wo OpusMPEGA installiert wurde, oder Weiter!")
  34. (set SETUPERROR         "\nOpusMPEGA (Preferences) ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"SYS:Prefs\" benutzen, falls sie dieses noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  35.  
  36. (set MP3INFPrompt        "Das Programm mp3info wird benutzt, um zusätzliche Informationen zu MPx-Audiofiles anzuzeigen. Bitte wählen Sie den Pfad zu mp3info aus, oder Weiter!")
  37. (set MP3INFERROR         "\nmp3info ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"C:mp3info\" benutzen, falls sie das Programm noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  38.  
  39. (set PLAYOFFPrompt        "\nWählen Sie, ob der interne Directory Opus Befehl Play ersetzt werden soll. Falls sie den Befehl nicht ersetzen, müssen sie gemäß Anleitung einen MPEG Audioplayer Button installieren.\n")
  40. (set #PLAYOFF1        "Play ersetzen")
  41. (set #PLAYOFF2            "Play belassen")
  42. (set ICONOFFPrompt         "\nWählen sie, ob Directory Opus bereits bei Programmstart ein Applicationsicon für MPEG-Audiofiles auf seiner Oberfläche ablegt.\n")
  43. (set #ICON1         "Applicationsicon")
  44. (set #ICON2             "Kein Applicationsicon")
  45. (set LOADPATHPrompt        "Sie können ihr bevorzugtes Verzeichnis für MPEG Audiofiles wählen. Dieses wird bei Anwahl des Menüpunktes Öffne File(s) (PopUp Menü des AppIcon) aufgelistet.")
  46.  
  47. (set LISTERPrompt        "\nWählen sie, welche Informationen innerhalb eines Abspielfensters dargestellt werden.\n")
  48. (set #LIST1            "Titel (Wird immer dargestellt)")
  49. (set #LIST2            "Größe in Bytes")
  50. (set #LIST3            "Dateikommentar")
  51.  
  52. (set PlayerPrompt       "Wählen sie die verfügbare Soundkarte aus.\nWeitere Informationen sind unter Hilfe verfügbar.")
  53. (set PlayerHelp         (cat
  54.             "MPEG Audiowiedergabe (Format Layer-2) wird direkt von den Karten Melody und PeggyPlus, sowie von CD32 mit FMV-Modul unterstützt.\nDie MPEG-Karte MELODY unterstützt zusätzlich Layer3 unter Verwendung von MPEGA und AHI.\n\nDas CD32 und PeggyPlus MPEGPlay benötigen den Player MPEGPlay by Thorsten Hansen."
  55.             "\nDie weiteren Soundkarten sowie Layer-3 Audiodateien benötigen den Player MPEGA V3.3+ by Stephane TAVENARD und AHI V4.14+ by Martin Blom (ausser AMIGA Paula).\n\nBei Auswahl einer für Layer3 ungeeigneten MPEG-Karte, erfolgt im nächsten Schritt die Auswahl einer weiteren Soundkarte bzw. Amigaaudio für die Layer-3 Wiedergabe."
  56.     ))
  57. (set #t_oldinstaller    (cat
  58.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  59.             " Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  60.             " fortgesetzt werden, es können allerdings Fehler auftreten!\n\n"
  61.             "Möchten sie fortfahren?"
  62.     ))
  63. (set #t_oldinstallerhelp (cat
  64.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  65.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  66.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  67.     ))
  68.  
  69. (set PlayerL3Prompt     "Wählen sie für Layer-3 die geeignete Soundkarte aus.\nWeitere Informationen sind unter Hilfe verfügbar.")
  70. (set PlayerL3Help       "\nMPEG Audiowiedergabe (Format Layer-3) benötigen den AHI Treiber (Ausser AMIGA Paula, Wiedergabe in 8bit) und den Player MPEGA.\nWählen sie eine verfügbare Soundkarte oder Amigaaudio.")
  71.  
  72. (set DelfinaPrompt      "Wählen sie den gewünschten Wiedergabemodus für Ihre Soundkarte:")
  73. (set MelodyPrompt       "\nWählen sie den gewünschten Layer-3 Wiedergabemodus für die Melody:\n")
  74. (set AmigaPrompt          "Wählen sie den gewünschten Wiedergabemodus aus:")
  75. (set AHIPrompt          "Tragen sie die Mode ID in das Feld ein: (Siehe Hilfe)")
  76. (set AHIHelp          "\nDie Mode ID des für ihre Soundkarte/ Amiga Paula gewählten Mode Settings erfahren sie in dem AHI Preferences-Programm. Übernehmen sie den Wert aus dem Feld Mode ID, ohne das führende 0x00.\n\nDer aktuelle Eintrag dient als ein Beispiel, überschreiben sie die abweichenden Ziffern.\n\nWenn sie alle Einträge im Feld löschen, öffnet MPEGA immer einen Auswahlrequester.")
  77.  
  78. (set MPEG_1Prompt       "MPEGA Konfiguration:\n\nWählen Sie die mögliche Ausgabequalität, je nach CPU-Typ.\nBei Wiedergabe Problemen die niedrigere Qualität auswählen.\n")
  79. (set MPEG_2Prompt       "MPEGA Konfiguration:\n\nWählen Sie die Ausgabefrequenz.\nNormal ist nicht möglich bei PAL/NTSC-Bildschirmmode!\n")
  80. (set MPEG_3Prompt       "MPEGA Konfiguration:\n\nDie Prozess Priorität für den MPEGA Audioplayer sollte nur durch erfahrene Anwender geändert werden!\n")
  81. (set #askchange        "\nDie Konfiguration für Opus MPEGA wurde erfolgreich abgeschlossen.\nZur Übernahme der neuen Einstellungen beenden Sie gegebenenfalls Opus MPEGA zuerst (Menüpunkt Schließen)!\n")
  82. (set #loop1        "Konfiguration beenden")
  83. (set #loop2        "Konfiguration wiederholen")
  84.  
  85. )
  86.  
  87. ;******************************************************************************************************
  88. ; english
  89.  
  90. (
  91. (set PrefsPrompt        "Welcome to the Configurations-Utilitie for Opus MPEGA.\n\nSelect your Soundcard, and the Paths to Players and Tools.")
  92.  
  93. (set MPEGPlayPrompt     "MPEG Play over Soundcards Melody, Peggyplus, CD32/FMV needed MPEGPlay by Thorsten Hansen. Please select the Program Drawer!")
  94. (set MPEGPlayERROR      "\n'MPEGPlay' is not installed or error to path !\n\nSelect 'yes' for default or 'no' for repeat.\n\nDefault: ")
  95.  
  96. (set PlayMPEGAPrompt     "\nMPEG Play over Amigaaudio and AHI sound system V4.14+ needed MPEGA V3.3+ by Stephane TAVENARD.\n\nPlease select Drawer and the MPEGA File for your System.")
  97. (set #PlayMPEGAPrompt    "Please select MPEGA or Proceed.")
  98. (set PlayMPEGAERROR      "\n'mpega' is not installed or error to path !\n\nSelect 'yes' for standard \"C:mpega\" or 'no' for repeat.")
  99.  
  100. (set BREAKPrompt        "Abort to Play needed the Tool BreakName (©1994 by Kai Iske, Public Domain). Please select the Drawer !")
  101. (set BREAKERROR         "\n'BreakName' is not installed or error to path !\n\nSelect 'yes' for standard \"C:BreakName\" or 'no' for repeat.")
  102.  
  103. (set HELPPrompt        "Select Directory path to Guide (OpusMPEGA.guide, Default DOpus:Help)!")
  104. (set HELPERROR         "\nOpusMPEGA.guide is not installed or error to path!\nSelect 'yes' for standard \"DOpus5:Help\" or 'no' for repeat.")
  105.  
  106. (set SETUPPrompt        "Select Directory path to Preferences (OpusMPEGA, Default SYS:Prefs)!")
  107. (set SETUPERROR         "\nOpusMPEGA is not installed or error to path !\n\nSelect 'yes' for standard \"SYS:Prefs\" or 'no' for repeat.")
  108.  
  109. (set MP3INFPrompt        "Select the TAG info program mp3info!")
  110. (set MP3INFERROR         "\nmp3info is not installed or error to path !\n\nSelect 'yes' for standard \"C:mp3info\" or 'no' for repeat.")
  111.  
  112. (set PLAYOFFPrompt        "\nReplace the internal commands 'Play'?\n")
  113. (set #PLAYOFF1        "to replace Play")
  114. (set #PLAYOFF2            "to not replace Play")
  115. (set ICONOFFPrompt         "\nAdd your own AppIcons to the DOpus screen?\n")
  116. (set #ICON1         "Add AppIcon")
  117. (set #ICON2             "Non AppIcon")
  118. (set LOADPATHPrompt        "Select the default directory for the menu command 'Open File(s)'")
  119.  
  120. (set LISTERPrompt        "\nSets the display items for the Play lister.\n")
  121. (set #LIST1            "file name")
  122. (set #LIST2            "file size (Bytes)")
  123. (set #LIST3            "comment")
  124.  
  125. (set PlayerPrompt       "Please select your Soundcard (See Help).")
  126. (set PlayerHelp         (cat 
  127.             "\nMPEG-Cards (Layer-2): Melody, Peggyplus, CD32/FMV.\nCD32 and Peggy-Plus MPEGPlay needed the Player MPEGPlay  by Thorsten Hansen.\n\nLayer-3 (Melody, Soundcards, Amiga-Paula) needed MPEGA V3.3+ by Stephane TAVENARD and AHI V4.14+ by Martin Blom.\n\n"
  128.             "AHI:\nAHI is a retargetable audio systems that can be used with both the built-in sound chip (Paula) and several sound cards. Actual is version 4.14 !"
  129.     ))
  130. (set #t_oldinstaller    (cat
  131.             " You have an old version of the Installer. I'll probably"
  132.             " need version 43.3 or greater. You can continue anyway"
  133.             " but there is no guarantee it will work as it's supposed"
  134.             " to do.\n"
  135.             " Do you wish to continue anyway?"
  136.     ))
  137. (set #t_oldinstallerhelp (cat
  138.             " The version of Installer you use is too old. You can"
  139.             " find a more recent version on the Internet, for example"
  140.             " on Aminet, in the util/misc directory. The current"
  141.             " file name is \"Installer-43_3.lha\":\n"
  142.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  143.     ))
  144.  
  145. (set PlayerL3Prompt     "Please select your Soundcard for Layer-3 (See Help).")
  146. (set PlayerL3Help       "\nLayer-3 (Soundcards, AMIGA AHI) needed MPEGA by Stephane TAVENARD and AHI-Drivers by Martin Blom.\nAMIGA Paula needed MPEGA.")
  147.  
  148. (set DelfinaPrompt      "Select Mode for Your Soundcard:")
  149. (set MelodyPrompt       "Select Layer-3 Mode for Your Melody Card:")
  150. (set AmigaPrompt          "Select your Mode:")
  151. (set AHIPrompt          "Specify the MODE ID of your AHI driver (See Help):")
  152. (set AHIHelp          "\nSee AHI Preferences field Mode ID, cut 0x00.")
  153.  
  154. (set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
  155. (set MPEG_2Prompt       "mpega-setup:\nDefines the output decoding frequency. You can only use Normal mode if you have a screenmode >15kHz and a fast CPU !")
  156. (set MPEG_3Prompt       "mpega-setup:\nSelect Priority for MPEGA (Default 0!).")
  157.  
  158. (set #askchange        "\nPlayer Setup complete.\n")
  159. (set #loop1        "Quit")
  160. (set #loop2        "Repeat")
  161. ))
  162.  
  163. ;***************************************************************************
  164. ;Play-MPAudio.prefs
  165. ;***************************************************************************
  166.  
  167. (if (= DirOpus 99) (welcome) )
  168. (set @default-dest "ENVARC:Play-MPAudio.prefs")
  169.  
  170. (if (< @installer-version (+ (* 43 65536) 3))
  171. (
  172.     (if (not (askbool
  173.         (prompt #t_oldinstaller)
  174.         (help #t_oldinstallerhelp)
  175.     ))
  176.     (
  177.         (abort (cat "\n\n" #t_oldinstallerhelp))
  178.     ))
  179. ))
  180.  
  181. (message #intro1 "\n\n" Prefsprompt)
  182.  
  183. ;***************************************************************************
  184. (set looping 1)
  185.  
  186. (while (<> looping 0)
  187.  
  188. (set KARTE 4)
  189.  
  190. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  191.     (set KARTE 9))
  192. (if (= 1 (exists "LIBS:maestix.library" (noreq)))
  193.     (set KARTE 8))
  194. (if (= 1 (exists "DEVS:mpeg.device" (noreq)))
  195.     (set KARTE 1))
  196. (if (= 1 (exists "DEVS:peggympeg.device" (noreq)))
  197.     (set KARTE 3))
  198. (if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
  199.     (set KARTE 0))
  200.  
  201. (set CPUVERS (DATABASE "cpu"))
  202.  
  203. (set PLAYER (askchoice
  204.     (prompt PlayerPrompt)
  205.     (help PlayerHelp)
  206.     (choices "MELODY" "CD32/FMV" "PEGGY-PLUS MPEGPlay" "PEGGY-PLUS Peggyplayer" "AMIGA (PAULA)" "DELFINA (AHI)" "TOCCATA (AHI)" "PRELUDE (AHI)" "MAESTRO PRO (AHI)" "AMIGA (AHI audio system)" "Other AHI audio system driver")
  207.     (default KARTE)
  208.  ))
  209.  
  210. (set PLAYERL3 8)
  211. (set KARTE 1)
  212.  
  213. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  214.     (set KARTE 5))
  215. (if (= 1 (exists "LIBS:maestix.library" (noreq)))
  216.     (set KARTE 5))
  217. (if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
  218.     (set KARTE 0))
  219.  
  220. (if (AND (>= PLAYER 0) (<= PLAYER 3))
  221.  
  222.   (set PLAYERL3 (askchoice
  223.     (prompt PlayerL3Prompt)
  224.     (help PlayerL3Help)
  225.     (choices "MELODY (AHI)" "AMIGA (PAULA)" "DELFINA (AHI)" "TOCCATA (AHI)" "PRELUDE (AHI)" "MAESTRO PRO (AHI)" "AMIGA (AHI audio system)" "Other AHI audio system driver")
  226.     (default KARTE)
  227.  ))
  228. )
  229.  
  230. (set PLAYNAME (select PLAYER "MELODY" "CD32" "PEGGYMELODY" "PEGGYPLAYER" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA"))
  231. (set MPEGASTRING " -T -f0 -d1 -q2 ")
  232. (set FLAG_5 0)
  233.  
  234. (if (= PLAYERL3 0)
  235.     ((set MPEGAOPT (askchoice
  236.     (prompt MelodyPrompt)
  237.     (help @askchoice-help)
  238.     (choices "MELODY: 16bit Mono" "MELODY: 16bit Stereo" "MELODY: 16bit Stereo++" "MELODY: Fast 16bit Mono" "MELODY: Fast 16bit Stereo" "MELODY: Fast 16bit Stereo++")
  239.     (default 4)
  240.         ))
  241.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "060005" "060003" "060001" "060006" "060004" "060002")))
  242. ))
  243.  
  244. (if (OR (= PLAYER 5) (= PLAYERL3 2))
  245.     ((set MPEGAOPT (askchoice
  246.     (prompt DelfinaPrompt)
  247.     (help @askchoice-help)
  248.     (choices "DELFINA: 16bit Mono" "DELFINA: 16bit stereo++" "DELFINA: AnyFreq 16bit mono" "DELFINA: AnyFreq 16bit Stereo++" "DELFINA: Fast 16bit mono" "DELFINA: Fast 16bit Stereo++" "DELFINA: Fast AnyFreq 16bit mono" "DELFINA: Fast AnyFreq 16bit stereo++")
  249.     (default 5)
  250.     ))
  251.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0100007" "0100003" "0100005" "0100001" "0100008" "0100004" "0100006" "0100002")))
  252. ))
  253.  
  254. (if (OR (= PLAYER 6) (= PLAYERL3 3))
  255.     ((set MPEGAOPT (askchoice
  256.     (prompt DelfinaPrompt)
  257.     (help @askchoice-help)
  258.     (choices "TOCCATA: 16bit Mono" "TOCCATA: 16bit Stereo" "TOCCATA: 16bit Stereo++" "TOCCATA: Fast 16bit Mono" "TOCCATA: Fast 16bit Stereo" "TOCCATA: Fast 16bit Stereo++" "TOCCATA: Hifi 16bit Mono" "TOCCATA: Hifi 16bit Stereo" "TOCCATA: Hifi 16bit Stereo++")
  259.     (default 4)
  260.         ))
  261.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0A0005" "0A0003" "0A0001" "0A0006" "0A0004" "0A0002" "0A0009" "0A0008" "0A0007")))
  262. ))
  263.  
  264.  
  265. (if (OR (= PLAYER 7) (= PLAYERL3 4))
  266.     ((set MPEGAOPT (askchoice
  267.     (prompt DelfinaPrompt)
  268.     (help @askchoice-help)
  269.     (choices "PRELUDE: 16bit Stereo" "PRELUDE: 16bit Stereo++" "PRELUDE: 16bit Stereo realtime" "PRELUDE: 16bit Stereo++ realtime")
  270.     (default 2)
  271.         ))
  272.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0C0001" "0C0002" "0C0003" "0C0004")))
  273. ))
  274.  
  275. (if (OR (= PLAYER 8) (= PLAYERL3 5))
  276.     ((set MPEGAOPT (askchoice
  277.     (prompt DelfinaPrompt)
  278.     (help @askchoice-help)
  279.     (choices "MAESTRO PRO: Fix 48k" "MAESTRO PRO: Input 32k" "MAESTRO PRO: Input 44.1k" "MAESTRO PRO: Input 48k" "MAESTRO PRO: Fix 48k ++" "MAESTRO PRO: Input 32k ++" "MAESTRO PRO: Input 44.1k ++" "MAESTRO PRO: Input 48k ++")
  280.     (default 4)
  281.         ))
  282.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0E0001" "0E0004" "0E0003" "0E0002" "0E0005" "0E0008" "0E0007" "0E0006")))
  283. ))
  284.  
  285. (set CPUFLAG 0)
  286. (if (= CPUVERS "68040")
  287.     (set CPUFLAG 1)
  288. )
  289. (if (= CPUVERS "68060")
  290.     (set CPUFLAG 2)
  291. )
  292. (set CPUNFLAG (- 2 CPUFLAG)
  293. )
  294.  
  295. (if (OR (= PLAYER 9) (= PLAYERL3 6))
  296.     (
  297.     (set FLAG_3 (askchoice
  298.     (prompt MPEG_1Prompt)
  299.     (help @askchoice-help)
  300.     (choices "Low (68020/030)" "Medium (68040)" "High (68060)")
  301.     (default CPUFLAG)
  302.  ))
  303.  
  304.     (set FLAG_4 (askchoice
  305.     (prompt MPEG_2Prompt)
  306.     (help @askchoice-help)
  307.     (choices "Normal (44100Hz)" "1/2 (22050Hz)" "1/4 (11025Hz)")
  308.     (default CPUNFLAG)
  309.  ))
  310.  
  311.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  312.  (set MPEGADIV (select FLAG_4 1 2 4))
  313.  
  314.     (set MPEGAOPT (askchoice
  315.     (prompt AmigaPrompt)
  316.     (help @askchoice-help)
  317.     (choices "PAULA: 14bit Mono" "PAULA: 14bit Stereo" "PAULA: 14bit Stereo++" "PAULA: 8bit Mono" "PAULA: 8bit Stereo" "PAULA: 8bit Stereo++" "PAULA: Fast 14bit Mono calibrated" "PAULA: Fast 14bit Stereo calibrated" "PAULA: 14bit Stereo++ calibrated" "PAULA: Fast 8bit Mono" "PAULA: Fast 8bit Stereo" "PAULA: Fast 8bit Stereo++" 
  318.          "PAULA: Hifi 14bit Mono calibrated" "PAULA: Hifi 14bit Stereo calibrated" "PAULA: Hifi Stereo++ calibrated" "PAULA: Hifi 8bit Mono" "PAULA: Hifi 8bit Stereo" "PAULA: Hifi 8bit Stereo+")
  319.     (default 1)
  320.      ))
  321.     (set MPEGASTRING (cat " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL " -I" (select MPEGAOPT "020005" "020003" "020001" "02000B" "020009" "020007" "020006" "020004" "020002" "02000C" "02000A" "020008" "02000F" "02000E" "02000D" "020012" "020011" "020010")))
  322. ))
  323.  
  324. (if (OR (= PLAYER 10) (= PLAYERL3 7))
  325.     (set MPEGASTRING (cat " -T -I"
  326.     (askstring
  327.     (prompt AHIPrompt)
  328.     (help AHIhelp)
  329.     (default "02000A")
  330.  )))
  331. )
  332.  
  333. (if (OR (= PLAYER 4) (= PLAYERL3 1))
  334.     (
  335.     (set FLAG_3 (askchoice
  336.     (prompt MPEG_1Prompt)
  337.     (help @askchoice-help)
  338.     (choices "Low (68020/30)" "Medium (68040)" "High (68060)")
  339.     (default CPUFLAG)
  340.  ))
  341.  
  342.     (set FLAG_4 (askchoice
  343.     (prompt MPEG_2Prompt)
  344.     (help @askchoice-help)
  345.     (choices "Normal (44100Hz)" "1/2 (22050Hz)" "1/4 (11025Hz)")
  346.     (default CPUNFLAG)
  347.  ))
  348.  
  349.     (set FLAG_5 (askchoice
  350.     (prompt MPEG_3Prompt)
  351.     (help @askchoice-help)
  352.     (choices "0 (Default)" "1" "2" "5")
  353.     (default 0)
  354.  )
  355. )
  356.  
  357.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  358.  (set MPEGADIV (select FLAG_4 1 2 4))
  359.  
  360.  (set MPEGASTRING (cat  " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL))
  361. ))
  362.  
  363. (set MPEGPlayDir "C:")
  364. (set BREAKDir "C:")
  365. (set FLAG_0 0)
  366.  
  367. (if (AND (>= PLAYER 0) (<= PLAYER 2))
  368.  
  369.     (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  370.      (until (= FLAG_0 1)
  371.            ((set MPEGPlayDir (askdir
  372.             (prompt MPEGPlayPrompt)
  373.             (help    @askdir-help)
  374.             (default "SYS:")
  375.                 ))
  376.            (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  377.              (if (askbool
  378.                  (prompt MPEGPlayERROR)
  379.                  (help " "))
  380.                  ((set FLAG_0 1)
  381.                  (set MPEGPlayDir "C:")))
  382.                  (set FLAG_0 1))
  383.            ))
  384.     )             
  385. )
  386.  
  387. (set DEFMPEGA "MPEGA.020")
  388. (if (OR (= CPUVERS "68040") (= CPUVERS "68060"))
  389.     (set DEFMPEGA "MPEGA.040")
  390. )
  391.  
  392. (set PlayMPEGA (tackon "C:" DEFMPEGA))
  393. (set FLAG_1 0)
  394.  
  395. (if (OR (= 2 @user-level) (<> 1 (exists PlayMPEGA (noreq))))
  396.     ((message PlayMPEGAPrompt)
  397.     (until (= FLAG_1 1)
  398.            ((set PlayMPEGA (askfile
  399.             (prompt #PlayMPEGAPrompt)
  400.             (help    @askfile-help)
  401.             (default (tackon "C:" DEFMPEGA))
  402.                 ))
  403.            (if (<> 1 (exists (PlayMPEGA) (noreq)))
  404.              (if (askbool
  405.                  (prompt (cat PlayMPEGAERROR (tackon "C:" DEFMPEGA)))
  406.                  (help " "))
  407.              ((set FLAG_1 1)
  408.                  (set PlayMPEGA (tackon "C:" DEFMPEGA))
  409.          ))
  410.                  (set FLAG_1 1))
  411.            ))
  412. ))
  413.  
  414. (set FLAG_2 0)
  415. (if (OR (= 2 @user-level) (<> 1 (exists (tackon BREAKDir "BreakName") (noreq))))
  416.      (until (= FLAG_2 1)
  417.            ((set BREAKDir (askdir
  418.             (prompt BREAKPrompt)
  419.             (help    @askdir-help)
  420.             (default "SYS:")
  421.                 ))
  422.            (if (<> 1 (exists (tackon BREAKDir "BreakName") (noreq)))
  423.              (if (askbool
  424.                  (prompt BREAKERROR)
  425.                  (help " "))
  426.                  ((set FLAG_2 1)
  427.                  (set BREAKDir "C:")))
  428.                  (set FLAG_2 1))
  429.            ))
  430. )           
  431.  
  432.  (if (AND (<> PLAYER 4) (<> PLAYERL3 1))
  433.     (set FLAG_5 (askchoice
  434.     (prompt MPEG_3Prompt)
  435.     (help @askchoice-help)
  436.     (choices "0 (Default)" "1" "2" "5")
  437.     (default 0)
  438.  ))
  439.  )
  440.  
  441. (set HELPDir "DOpus5:Help")
  442. (set FLAG_6 0)
  443. (if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
  444.      (until (= FLAG_6 1)
  445.            ((set HELPDir (askdir
  446.             (prompt HELPPrompt)
  447.             (help    @askdir-help)
  448.             (default "DOpus5:Help")
  449.                 ))
  450.            (if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
  451.              (if (askbool
  452.                  (prompt HELPERROR)
  453.                  (help " "))
  454.                  ((set FLAG_6 1)
  455.                  (set HELPDir "DOpus5:Help")))
  456.                  (set FLAG_6 1))
  457.            ))
  458. )           
  459.  
  460. (set SETUPDir "SYS:Prefs")
  461. (set FLAG_7 0)
  462. (if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
  463.      (until (= FLAG_7 1)
  464.            ((set SETUPDir (askdir
  465.             (prompt SETUPPrompt)
  466.             (help    @askdir-help)
  467.             (default "SYS:Prefs")
  468.                 ))
  469.            (if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
  470.              (if (askbool
  471.                  (prompt SETUPERROR)
  472.                  (help " "))
  473.                  ((set FLAG_7 1)
  474.                  (set SETUPDir "SYS:Prefs")))
  475.                  (set FLAG_7 1))
  476.            ))
  477. )           
  478.  
  479. (set MP3INFFile (cat "C:mp3info." (substr CPUVERS 2)))
  480. (set FLAG_8 0)
  481. (if (<> 1 (exists MP3INFFile (noreq)))
  482.      (until (= FLAG_8 1)
  483.            ((set MP3INFFile (askfile
  484.             (prompt MP3INFPrompt)
  485.             (help    @askdir-help)
  486.             (default "C:mp3info" )
  487.                 ))
  488.            (if (<> 1 (exists MP3INFFile (noreq)))
  489.              (if (askbool
  490.                  (prompt MP3INFERROR)
  491.                  (help " "))
  492.                  ((set FLAG_8 1)
  493.                  (set MP3INFFile "C:mp3info" )))
  494.                  (set FLAG_8 1))
  495.            ))
  496. )           
  497.  
  498. (set FLAG_9 (askchoice
  499.     (prompt PLAYOFFPrompt)
  500.     (help @askchoice-help)
  501.     (choices #PLAYOFF1 #PLAYOFF2)
  502.     (default 0)
  503.  )
  504. )
  505.  
  506. (set FLAG_10 (askchoice
  507.     (prompt ICONOFFPrompt)
  508.     (help @askchoice-help)
  509.     (choices #ICON1 #ICON2)
  510.     (default 0)
  511.  )
  512. )
  513.  
  514. (set #LOADPATH (askdir
  515.             (prompt LOADPATHPrompt)
  516.             (help    @askdir-help)
  517.             (default "RAM:" )
  518.                 ))
  519.  
  520. (set FLAG_11 (askoptions
  521.     (prompt LISTERPrompt)
  522.     (help @askoptions-help)
  523.     (choices #LIST1 #LIST2 #LIST3)
  524.     (default 1)
  525.  )
  526. )
  527. (set #MPPRIO (select FLAG_5 0 1 2 5))
  528. (set #POFF (select FLAG_9 "PLAY" "PLAYOFF"))
  529. (set #IOFF (select FLAG_10 "ICON" "ICONOFF"))
  530.  
  531. (set #SIZE "SIZEOFF")
  532. (set #comm "COMMENTOFF")
  533. (if (bitand FLAG_11 2)
  534.     (set #SIZE "SIZEON"))
  535. (if (bitand FLAG_11 4)
  536.     (set #COMM "COMMENTON"))
  537.  
  538. (set #PREFERENCES (cat #POFF "\n" #IOFF "\n" #SIZE "\n" #COMM "\n" #LOADPATH "\n" (tackon HELPDir "OpusMPEGA.guide") "\n" (tackon SETUPDir "OpusMPEGA") "\n" MP3INFFile "\n"))
  539. (textfile 
  540.     (dest "ENVARC:OpusMPEGA.prefs")
  541.         (append ";$VER: Prefs for Opus MPEGA 3.0\n" (tackon MPEGPlayDir "MPEGPlay") "\n" PlayMPEGA "\n" (tackon BREAKDir "BreakNAME") "\n" (cat "-p" #MPPRIO MPEGASTRING) "\n" PLAYNAME "\n" #PREFERENCES)
  542.  )
  543. (textfile 
  544.     (dest "ENV:OpusMPEGA.prefs")
  545.         (append ";$VER: Prefs for Opus MPEGA 3.0\n" (tackon MPEGPlayDir "MPEGPlay") "\n" PlayMPEGA "\n" (tackon BREAKDir "BreakNAME") "\n" (cat "-p" #MPPRIO MPEGASTRING) "\n" PLAYNAME "\n" #PREFERENCES)
  546. )
  547. ;***************************************************************************
  548.  (set looping 
  549.     (askchoice 
  550.         (choices #loop1 #loop2)
  551.                 (prompt #askchange)
  552.                 (help   #askchange)
  553.                    (default 0)
  554.           )
  555.  ))
  556. (exit (quiet))
  557.